home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / STARMAP.DIR / 00002_Script_2 next >
Text File  |  1995-11-16  |  5KB  |  210 lines
  1. on showHilite
  2.   global gCurrChanxxx,gFirsChan,gLastChan, gPrevHilite, gCurrList
  3.   
  4.   if (the machineType = 256 and the controlDown) or the commandDown then exit
  5.   
  6.   set m = marker(0)
  7.   if m <> 66 and m <> 77 and m <> 108 and m <> 118 then 
  8.     set m = the movie
  9.     testOverheadMenu
  10.     if m <> the movie then exit  
  11.   end if
  12.   
  13.   repeat with i = gFirsChan to gLastChan
  14.     
  15.     if not rollOver(i) then next repeat
  16.     
  17.     set cn = the castNum of sprite i
  18.     if cn = 0 then next repeat
  19.     
  20.     put getAprop(gCurrList,i) into thisOne
  21.     
  22.     if voidP(thisOne) then next repeat
  23.     
  24.     if not doRollOverMe(thisOne) then next repeat
  25.     
  26.     rollo(thisOne)
  27.     
  28.     if doHiLiteMe(thisOne) then
  29.       set t = the ticks + 10
  30.       repeat while rollOver(i)
  31.         if the mouseDown then exit Repeat  
  32.         if (the machineType = 256 and the controlDown) or the commandDown ¼
  33. then exit repeat 
  34.         
  35.         if t < the ticks then
  36.           set the visibility of sprite 48 = not the visibility of sprite 48
  37.           set t = the ticks + 10
  38.           updateStage
  39.         end if
  40.         
  41.       end repeat
  42.       
  43.       if the mouseDown then
  44.         press(thisOne)
  45.         set m = the movie            
  46.         doScript(thisOne)
  47.         if the movie = m then 
  48.           norm(thisOne)
  49.           updateStage
  50.         else
  51.           exit
  52.         end if
  53.       else
  54.         norm(thisOne)
  55.         updateStage  
  56.       end if
  57.     else
  58.       exit repeat
  59.     end if
  60.     
  61.   end repeat
  62.   
  63. end showHilite
  64.  
  65. on showHiliteNS
  66.   global gFirsChan,gLastChan, gPrevHilite, gCurrList
  67.   
  68.   if (the machineType = 256 and the controlDown) or the commandDown then exit
  69.   
  70.   if rollOver(15) or rollOver(16) then exit
  71.   
  72.   set m = the movie
  73.   testOverheadMenu
  74.   if m <> the movie then exit
  75.   
  76.   repeat with i = gFirsChan to gLastChan
  77.     
  78.     if not rollOver(i) then next repeat
  79.     
  80.     set cn = the castNum of sprite i
  81.     if cn = 0 then next repeat
  82.     
  83.     put getAprop(gCurrList,i) into thisOne
  84.     
  85.     if voidP(thisOne) then next repeat
  86.     
  87.     if not doRollOverMe(thisOne) then next repeat
  88.     
  89.     rollo(thisOne)
  90.     
  91.     if doHiLiteMe(thisOne) then
  92.       set t = the ticks + 10
  93.       repeat while rollOver(i)
  94.         if the mouseDown then exit Repeat  
  95.         if (the machineType = 256 and the controlDown) or the commandDown ¼
  96. then exit repeat
  97.         
  98.         if t < the ticks then
  99.           set the visibility of sprite 48 = not the visibility of sprite 48
  100.           set t = the ticks + 10
  101.           updateStage
  102.         end if
  103.         
  104.         if rollOver(15) or rollOver(16) then 
  105.           norm(thisOne)
  106.           exit
  107.         end if
  108.         
  109.       end repeat
  110.       
  111.       if the mouseDown then
  112.         --put ">>> mouse down in sh NS"
  113.         press(thisOne)
  114.         norm(thisOne)
  115.         set m = the movie
  116.         doScript(thisOne)
  117.         if m <> the movie then exit
  118.         if cn = 47 or cn = 50 then -- show/hide names
  119.           repeat while the mouseDown
  120.           end repeat  
  121.         end if
  122.         exit repeat
  123.       else
  124.         norm(thisOne)
  125.         updateStage
  126.       end if
  127.     else
  128.       set n = the name of cast cn
  129.       if n = "SCR.PIC" or n = "STR.PIC" then exit
  130.       press(thisOne)
  131.       norm(thisOne)
  132.       doScript(thisOne)
  133.       
  134.       exit repeat
  135.     end if
  136.     
  137.   end repeat
  138.   
  139. end showHiliteNS
  140.  
  141.  
  142. on showHiliteSS
  143.   global gFirsChan,gLastChan, gPrevHilite, gCurrList
  144.   
  145.   if (the machineType = 256 and the controlDown) or the commandDown then exit
  146.   
  147.   set m = the movie
  148.   testOverheadMenu
  149.   if m <> the movie then exit
  150.   
  151.   repeat with i = gFirsChan to gLastChan
  152.     
  153.     if not rollOver(i) then next repeat
  154.     
  155.     set cn = the castNum of sprite i
  156.     if cn = 0 then next repeat
  157.     
  158.     put getAprop(gCurrList,i) into thisOne
  159.     
  160.     if voidP(thisOne) then next repeat
  161.     
  162.     if not doRollOverMe(thisOne) then next repeat
  163.     
  164.     set f = the frame
  165.     rollo(thisOne)
  166.     if the frame <> f then exit
  167.     
  168.     if doHiLiteMe(thisOne) then
  169.       set t = the ticks + 10
  170.       repeat while rollOver(i)
  171.         if the mouseDown then exit Repeat  
  172.         if (the machineType = 256 and the controlDown) or the commandDown ¼
  173. then exit repeat
  174.         
  175.         if t < the ticks then
  176.           set the visibility of sprite 48 = not the visibility of sprite 48
  177.           set t = the ticks + 10
  178.           updateStage
  179.         end if
  180.         
  181.       end repeat
  182.       
  183.       if the mouseDown then
  184.         press(thisOne)
  185.         norm(thisOne)
  186.         set m = the movie
  187.         doScript(thisOne)
  188.         if m <> the movie then exit
  189.         if cn = 47 or cn = 50 then
  190.           repeat while the mouseDown
  191.           end repeat  
  192.         end if
  193.       else
  194.         norm(thisOne)
  195.         updateStage
  196.       end if
  197.     else
  198.       set n = the name of cast cn
  199.       if n = "SCR.PIC" or n = "STR.PIC" then exit
  200.       press(thisOne)
  201.       norm(thisOne)
  202.       doScript(thisOne)
  203.       
  204.       exit repeat
  205.     end if
  206.     
  207.   end repeat
  208.   
  209. end showHiliteSS
  210.